|
42
|
Is it possible to programmatically expand a folder (sample 1)
with CascadeFile1 do
begin
BeginUpdate();
Layout := 'Expand0 = "c:\";SelectMode0 = 0';
EndUpdate();
end
|
|
41
|
Can I limit the size of each cascade column, so the user can't resize them outside of the range I give
with CascadeFile1 do
begin
BeginUpdate();
HeaderVisible := False;
Mode := EXMILLERLib_TLB.exFixCascadeMode;
ColumnsVisible := EXMILLERLib_TLB.exFileColumnName;
MinColumnWidth := 128;
MaxColumnWidth := 256;
EndUpdate();
end
|
|
40
|
How can I define the width of the cascade column
with CascadeFile1 do
begin
BeginUpdate();
Mode := EXMILLERLib_TLB.exFixCascadeMode;
DefColumnWidth := 256;
EndUpdate();
end
|
|
39
|
The scroll bars are too large. Can I make them smaller
with CascadeFile1 do
begin
BeginUpdate();
ScrollWidth := 4;
ScrollHeight := 4;
EndUpdate();
end
|
|
38
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
with CascadeFile1 do
begin
BeginUpdate();
ScrollPartVisible[EXMILLERLib_TLB.exVScroll,EXMILLERLib_TLB.exExtentThumbPart] := True;
ScrollPartVisible[EXMILLERLib_TLB.exHScroll,EXMILLERLib_TLB.exExtentThumbPart] := True;
ScrollPartVisible[EXMILLERLib_TLB.exScroll,EXMILLERLib_TLB.exExtentThumbPart] := True;
ScrollWidth := 4;
Background[EXMILLERLib_TLB.exVSBack] := $f0f0f0;
Background[EXMILLERLib_TLB.exVSThumb] := $808080;
ScrollHeight := 4;
Background[EXMILLERLib_TLB.exHSBack] := Background[EXMILLERLib_TLB.exVSBack];
Background[EXMILLERLib_TLB.exHSThumb] := Background[EXMILLERLib_TLB.exVSThumb];
Background[EXMILLERLib_TLB.exScrollSizeGrip] := Background[EXMILLERLib_TLB.exVSBack];
EndUpdate();
BeginUpdate();
ColumnsVisible := EXMILLERLib_TLB.exFileColumnName;
HeaderVisible := False;
FitCascadeColumns := 3;
EndUpdate();
end
|
|
37
|
How can I lock / freeze the control events
// Event event - Notifies the application once the control fires an event.
procedure TForm1.CascadeFile1Event(ASender: TObject; EventID : Integer);
begin
with CascadeFile1 do
begin
OutputDebugString( EventParam[-2] );
end
end;
with CascadeFile1 do
begin
FreezeEvents(True);
end
|
|
36
|
How can I display the list mode in the first view, and thumbnail in the second view
with CascadeFile1 do
begin
BeginUpdate();
AllowSplitView := EXMILLERLib_TLB.exAllowOneSplitView;
SplitViewHeight := '256';
Layout := 'Select1="c:\";SelectMode1 = 2';
Layout := 'Select0="c:\";SelectMode0 = 1';
EndUpdate();
end
|
|
35
|
How can I programmatically select a different folder in the second, or third view
with CascadeFile1 do
begin
BeginUpdate();
AllowSplitView := EXMILLERLib_TLB.exAllowOneSplitView;
SplitViewHeight := '256';
Layout := 'Select1="d:\"';
Layout := 'Select0="E:\"';
EndUpdate();
end
|
|
34
|
How can I programmatically vertically-split the control
with CascadeFile1 do
begin
BeginUpdate();
AllowSplitView := EXMILLERLib_TLB.exAllowTwoSplitView;
SplitViewHeight := '256,256';
EndUpdate();
end
|
|
33
|
How can I find if the control is running in DPI mode
with CascadeFile1 do
begin
OutputDebugString( FormatABC('dpi = 1 ? `normal/stretch mode` : `dpi mode`',Null,Null,Null) );
end
|
|
32
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme
with CascadeFile1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'XP:TREEVIEW 2 1');
Add(2,'XP:TREEVIEW 2 2');
end;
Background[EXMILLERLib_TLB.exTreeGlyphOpen] := $1000000;
Background[EXMILLERLib_TLB.exTreeGlyphClose] := $2000000;
EndUpdate();
end
|
|
31
|
How can I change the visual appearance of the +/- buttons
with CascadeFile1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' +
'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' +
'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' +
'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX' +
'IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg' +
'wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI' +
'NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=');
Add(2,'gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' +
'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' +
'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' +
'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe' +
'Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF' +
'SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ' +
'tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=');
end;
Background[EXMILLERLib_TLB.exTreeGlyphOpen] := $1000000;
Background[EXMILLERLib_TLB.exTreeGlyphClose] := $2000000;
EndUpdate();
end
|
|
30
|
How can I change the color for selected thumbnail
with CascadeFile1 do
begin
BeginUpdate();
Select := 'c:\';
SelectMode := EXMILLERLib_TLB.exSelectModeThumbnail;
Background[EXMILLERLib_TLB.exThumbnailSelBorderColor] := $ff;
Background[EXMILLERLib_TLB.exThumbnailSelBorderColorHide] := $80;
EndUpdate();
end
|
|
29
|
How can I change the thumbnail's frame color
with CascadeFile1 do
begin
BeginUpdate();
Select := 'c:\';
SelectMode := EXMILLERLib_TLB.exSelectModeThumbnail;
Background[EXMILLERLib_TLB.exThumbnailBorderColor] := $10000;
EndUpdate();
end
|
|
28
|
Turn on the background-alternate colors, for Thumbnail view
with CascadeFile1 do
begin
BeginUpdate();
Select := 'c:\';
SelectMode := EXMILLERLib_TLB.exSelectModeThumbnail;
Background[EXMILLERLib_TLB.exThumbnailBackColorAlt] := $808080;
EndUpdate();
end
|
|
27
|
Is there any option I can highlight the panel view that currently has the focus
with CascadeFile1 do
begin
BeginUpdate();
Background[EXMILLERLib_TLB.exFocusFrame] := $808080;
EndUpdate();
end
|
|
26
|
I disabled the split bars, the question is how can I change the visual appearance of them
with CascadeFile1 do
begin
BeginUpdate();
Background[EXMILLERLib_TLB.exSplitBar] := $808080;
Background[EXMILLERLib_TLB.exDisableSplitBar] := Background[EXMILLERLib_TLB.exSplitBar];
Background[EXMILLERLib_TLB.exCSplitBar] := Background[EXMILLERLib_TLB.exSplitBar];
Background[EXMILLERLib_TLB.exHSplitBar] := Background[EXMILLERLib_TLB.exSplitBar];
Background[EXMILLERLib_TLB.exSplitBarSize] := $2;
Background[EXMILLERLib_TLB.exDisableSplitBarSize] := Background[EXMILLERLib_TLB.exSplitBarSize];
HeaderVisible := False;
Mode := Integer(EXMILLERLib_TLB.exAutoFitOnResizeClient) Or Integer(EXMILLERLib_TLB.exDisableResizeCascadeColumns) Or Integer(EXMILLERLib_TLB.exSplitFixCascadeMode);
EndUpdate();
end
|
|
25
|
The control's split bar looks a bit larger, can I make it smaller
with CascadeFile1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVA' +
'ceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69J' +
'bwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoi' +
'C8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYF' +
'oFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlE' +
'kRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw' +
'8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0' +
'CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI');
AllowSplitView := EXMILLERLib_TLB.exAllowTwoSplitView;
Background[EXMILLERLib_TLB.exSplitBar] := $1000000;
Background[EXMILLERLib_TLB.exCSplitBar] := $1000000;
Background[EXMILLERLib_TLB.exHSplitBar] := $1000000;
Background[EXMILLERLib_TLB.exSplitBarSize] := $3;
HeaderVisible := False;
EndUpdate();
end
|
|
24
|
How can I change the status bar's visual appearance
with CascadeFile1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVA' +
'ceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69J' +
'bwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoi' +
'C8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYF' +
'oFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlE' +
'kRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw' +
'8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0' +
'CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI');
StatusBarVisible := EXMILLERLib_TLB.exStatusBarAnchorTop;
Background[EXMILLERLib_TLB.exStatusBackColor] := $1404040;
Background[EXMILLERLib_TLB.exStatusForeColor] := $ffffff;
Background[EXMILLERLib_TLB.exStatusPanelBackColor] := $1808080;
EndUpdate();
end
|
|
23
|
How can I change the status bar's visual appearance
with CascadeFile1 do
begin
BeginUpdate();
StatusBarVisible := EXMILLERLib_TLB.exStatusBarAnchorTop;
Background[EXMILLERLib_TLB.exStatusBackColor] := $282828;
Background[EXMILLERLib_TLB.exStatusForeColor] := $ffffff;
Background[EXMILLERLib_TLB.exStatusPanelBackColor] := $808080;
EndUpdate();
end
|
|
22
|
How can I change the visual appearance for all split-bars that the control displays
with CascadeFile1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVA' +
'ceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69J' +
'bwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoi' +
'C8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYF' +
'oFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlE' +
'kRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw' +
'8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0' +
'CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI');
AllowSplitView := EXMILLERLib_TLB.exAllowTwoSplitView;
Background[EXMILLERLib_TLB.exSplitBar] := $1000000;
Background[EXMILLERLib_TLB.exCSplitBar] := $1000000;
Background[EXMILLERLib_TLB.exHSplitBar] := $1000000;
HeaderVisible := False;
EndUpdate();
end
|
|
21
|
How can I change the visual appearance for all split-bars that the control displays
with CascadeFile1 do
begin
BeginUpdate();
AllowSplitView := EXMILLERLib_TLB.exAllowTwoSplitView;
Background[EXMILLERLib_TLB.exSplitBar] := $10000;
Background[EXMILLERLib_TLB.exCSplitBar] := $10000;
Background[EXMILLERLib_TLB.exHSplitBar] := $10000;
HeaderVisible := False;
EndUpdate();
end
|
|
20
|
How can I change the tooltip's visual appearance
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.CascadeFile1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
with CascadeFile1 do
begin
ShowToolTip('This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.',Null,Null,Null,Null);
end
end;
with CascadeFile1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzVA' +
'cRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIuT' +
'BOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBhu' +
'C+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4Elma' +
'QJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZlE' +
'QDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBIIo' +
'iAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm0' +
'CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA2' +
'nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKksT' +
'5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzCW' +
'BoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ==');
Background[EXMILLERLib_TLB.exToolTipAppearance] := $1000000;
EndUpdate();
end
|
|
19
|
How can I change the tooltip's visual appearance
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.CascadeFile1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
with CascadeFile1 do
begin
ShowToolTip('This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.',Null,Null,Null,Null);
end
end;
with CascadeFile1 do
begin
BeginUpdate();
Background[EXMILLERLib_TLB.exToolTipBackColor] := $10000;
Background[EXMILLERLib_TLB.exToolTipForeColor] := $ffff;
EndUpdate();
end
|
|
18
|
How can I change the visual appearance of the control's split bar
with CascadeFile1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzVA' +
'cRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIuT' +
'BOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBhu' +
'C+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4Elma' +
'QJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZlE' +
'QDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBIIo' +
'iAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm0' +
'CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA2' +
'nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKksT' +
'5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzCW' +
'BoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ==');
Background[EXMILLERLib_TLB.exSplitBar] := $1000000;
HeaderVisible := False;
Mode := EXMILLERLib_TLB.exFixCascadeMode;
EndUpdate();
end
|
|
17
|
How can I change the visual appearance of the control's split bar
with CascadeFile1 do
begin
BeginUpdate();
Background[EXMILLERLib_TLB.exSplitBar] := $f0f0f0;
HeaderVisible := False;
Mode := EXMILLERLib_TLB.exFixCascadeMode;
EndUpdate();
end
|
|
16
|
How can I load images into the control
with CascadeFile1 do
begin
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
StatusBarVisible := EXMILLERLib_TLB.exStatusBarAnchorTop;
StatusBarLabel := '<img>pic1</img> This is picture into the control''s status bar';
end
|
|
15
|
Is it possible to show my tooltip
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.CascadeFile1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
with CascadeFile1 do
begin
ShowToolTip('This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.',Null,Null,Null,Null);
end
end;
|
|
14
|
Is it possible to change the tooltip's font
with CascadeFile1 do
begin
f := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont'))) as stdole_TLB.StdFont);
with f do
begin
Name := 'Tahoma';
Size := 12;
end;
ToolTipFont := (IUnknown(f) as stdole_TLB.StdFont);
end
|
|
13
|
Is it possible to change the tooltip's width
with CascadeFile1 do
begin
ToolTipWidth := 64;
end
|
|
12
|
How can I disable the control
with CascadeFile1 do
begin
Enabled := False;
end
|
|
11
|
How can I force refreshing the control
with CascadeFile1 do
begin
BeginUpdate();
Refresh();
EndUpdate();
end
|
|
10
|
How can I prevent showing any tooltip
with CascadeFile1 do
begin
ToolTipDelay := 0;
ToolTipPopDelay := 0;
end
|
|
9
|
How can I make the control's tooltip to be shown for a longer time
with CascadeFile1 do
begin
ToolTipPopDelay := 10000;
end
|
|
8
|
How can I make the control's tooltip to be shown faster
with CascadeFile1 do
begin
ToolTipDelay := 1;
end
|
|
7
|
How can I get the control's handle
with CascadeFile1 do
begin
OutputDebugString( hWnd );
end
|
|
6
|
How can I clears the images into the control
with CascadeFile1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
StatusBarVisible := EXMILLERLib_TLB.exStatusBarAnchorTop;
StatusBarLabel := '<img>1</img> This is an icon into the control''s status bar';
ReplaceIcon(OleVariant(0),OleVariant(-1));
end
|
|
5
|
How can I load images into the control
with CascadeFile1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
StatusBarVisible := EXMILLERLib_TLB.exStatusBarAnchorTop;
StatusBarLabel := '<img>1</img> This is an icon into the control''s status bar';
end
|
|
4
|
How do I get the version of the control I am running
with CascadeFile1 do
begin
OutputDebugString( Version );
end
|
|
3
|
The control's foreground is changed if I open multiple views. What can be the problem
with CascadeFile1 do
begin
ForeColor := RGB(255,0,0);
ForeColorAlternate := ForeColor;
end
|
|
2
|
The control's background is changed if I open multiple views. What can be the problem
with CascadeFile1 do
begin
BackColor := RGB(255,255,0);
BackColorAlternate := BackColor;
end
|
|
1
|
How do I change the control's background color
with CascadeFile1 do
begin
BackColor := RGB(240,240,240);
BackColorAlternate := BackColor;
HeaderVisible := False;
end
|